home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / dwarfx / dwarf24.lha / dwarftalk.amirx < prev    next >
Text File  |  1980-12-25  |  1KB  |  6 lines
  1. /*|DWaRFx| Speaking script - Meant to sound like kryten :-)    */
  2.  
  3. /* Compressed with CompressRexx v2.1, (C) 1993-96 Robert Hofmann */
  4. parse arg reason;ADDRESS "AMIRC.1";options results;getusers;users = result;Call Setclip('DFxTIME',Time());Do a = 1 to Words(users);user = Subword(users,a,1);If Upper(user) = 'GåZ' | upper(user) = "COøLWAVE" then do;'SAY /OP 'user;Leave;End;End;Call Setclip('DFxTIME',Time());'echo « |DWaRFx| Kryton Speech script Started »';'echo « Message yourself and say DIEKRYTEN to quit the script »';'say |DWaRFx| Kryten speech innitiated, take care not to wear out Krytens voice box with ascii art! :-)';DO forever;drop comm;drop dest;drop prefix;drop rest;'getline';comm = line.command;dest = line.dest;rest = line.rest;prefix = line.prefix;getmynick;mynick = result;if comm = "PRIVMSG" THEN DO;IF dest = mynick THEN speed = 150;else speed = 200;if UPPER(rest) = ":DIEKRYTEN" then leave;ADDRESS command 'say -r -s'speed' -p128 'rest;END;END;'echo « |DWaRFx| Kryten Speech script quit remotely »';'echo « Quit coded by Popular demand :-) »';'say 'mynick' says - Oi! someone has just quit my DWaRFTaLK for me!'
  5. /* Original script: 44 lines, 1250 bytes */
  6.